Public Class EPeriododeCargo
    Private mLegajo As Integer
    Private mcargo As String
    Private mCodigo As Integer
    Private mFechaAlta As Date
    Private mFechaBaja As Date
    Private mSituacionRevista As String

    Public Sub New()
        mLegajo = 0
        mcargo = 0
        mFechaAlta = "01/01/1900"
        mFechaBaja = "01/01/2200"
        mSituacionRevista = " "
    End Sub
    Public Property LegajoPersonal() As Integer
        Get
            Return mLegajo
        End Get
        Set(ByVal value As Integer)
            mLegajo = value
        End Set
    End Property

    Public Property CodigoCargo() As Integer
        Get
            Return mCodigo
        End Get
        Set(ByVal value As Integer)
            mCodigo = value
        End Set
    End Property

    Public Property FechaAlta() As Date
        Get
            Return mFechaAlta
        End Get
        Set(ByVal value As Date)
            mFechaAlta = value
        End Set
    End Property

    Public Property FechaBaja() As Date
        Get
            Return mFechaBaja
        End Get
        Set(ByVal value As Date)
            mFechaBaja = value
        End Set
    End Property

    Public Property SituacionRevista() As String
        Get
            Return mSituacionRevista
        End Get
        Set(ByVal value As String)
            mSituacionRevista = value
        End Set
    End Property
End Class
